home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 48 / PC Gamer IT CD 48 2-2.iso / Starsiege / tribesdemo.exe / Disk1 / data1.cab / Tribes_Demo / base / scripts.vol / game.cs < prev    next >
Encoding:
Text File  |  1999-09-14  |  28.8 KB  |  886 lines
  1. exec("comchat.cs");
  2. $SensorNetworkEnabled = true;
  3.  
  4. $GuiModePlay = 1;
  5. $GuiModeCommand = 2;
  6. $GuiModeVictory = 3;
  7. $GuiModeInventory = 4;
  8. $GuiModeObjectives = 5;
  9. $GuiModeLobby = 6;
  10.  
  11.  
  12. //  Global Variables
  13.  
  14. //---------------------------------------------------------------------------------
  15. // Energy each team is given at beginning of game
  16. //---------------------------------------------------------------------------------
  17. $DefaultTeamEnergy = "Infinite";
  18.  
  19. //---------------------------------------------------------------------------------
  20. // Team Energy variables
  21. //---------------------------------------------------------------------------------
  22. $TeamEnergy[-1] = $DefaultTeamEnergy; 
  23. $TeamEnergy[0]  = $DefaultTeamEnergy; 
  24. $TeamEnergy[1]  = $DefaultTeamEnergy; 
  25. $TeamEnergy[2]  = $DefaultTeamEnergy; 
  26. $TeamEnergy[3]  = $DefaultTeamEnergy; 
  27. $TeamEnergy[4]  = $DefaultTeamEnergy; 
  28. $TeamEnergy[5]  = $DefaultTeamEnergy; 
  29. $TeamEnergy[6]  = $DefaultTeamEnergy;                 
  30. $TeamEnergy[7]  = $DefaultTeamEnergy; 
  31.  
  32. //---------------------------------------------------------------------------------
  33. // Time in sec player must wait before he can throw a Grenade or Mine after leaving
  34. //    a station.
  35. //---------------------------------------------------------------------------------
  36. $WaitThrowTime = 2;
  37.  
  38. //---------------------------------------------------------------------------------
  39. // If 1 then Team Spending Ignored -- Team Energy is set to $MaxTeamEnergy every
  40. //     $secTeamEnergy.
  41. //---------------------------------------------------------------------------------
  42. $TeamEnergyCheat = 0;
  43.  
  44. //---------------------------------------------------------------------------------
  45. // MAX amount team energy can reach
  46. //---------------------------------------------------------------------------------
  47. $MaxTeamEnergy = 700000;
  48.  
  49. //---------------------------------------------------------------------------------
  50. //  Time player has to put flag in flagstand before it gets returned to its last
  51. //  location. 
  52. //---------------------------------------------------------------------------------
  53. $flagToStandTime = 180;      
  54.  
  55. //---------------------------------------------------------------------------------
  56. // Amount to inc team energy every ($secTeamEnergy) seconds
  57. //---------------------------------------------------------------------------------
  58. $incTeamEnergy = 700;
  59.  
  60. //---------------------------------------------------------------------------------
  61. // (Rate is sec's) Set how often TeamEnergy is incremented
  62. //---------------------------------------------------------------------------------
  63. $secTeamEnergy = 30;
  64.  
  65. //---------------------------------------------------------------------------------
  66. // (Rate is sec's) Items respwan
  67. //---------------------------------------------------------------------------------
  68. $ItemRespawnTime = 30;
  69.  
  70. //---------------------------------------------------------------------------------
  71. //Amount of Energy remote stations start out with
  72. //---------------------------------------------------------------------------------
  73. $RemoteAmmoEnergy = 2500; 
  74. $RemoteInvEnergy = 3000;
  75.  
  76. //---------------------------------------------------------------------------------
  77. // TEAM ENERGY -  Warn team when teammate has spent x amount - Warn team that 
  78. //                  energy level is low when it reaches x amount 
  79. //---------------------------------------------------------------------------------
  80. $TeammateSpending = -4000;  //Set = to 0 if don't want the warning message
  81. $WarnEnergyLow = 4000;        //Set = to 0 if don't want the warning message
  82.  
  83. //---------------------------------------------------------------------------------
  84. // Amount added to TeamEnergy when a player joins a team
  85. //---------------------------------------------------------------------------------
  86. $InitialPlayerEnergy = 5000;
  87.  
  88. //---------------------------------------------------------------------------------
  89. // REMOTE TURRET
  90. //---------------------------------------------------------------------------------
  91. $MaxNumTurretsInBox = 2;     //Number of remote turrets allowed in the area
  92. $TurretBoxMaxLength = 50;    //Define Max Length of the area
  93. $TurretBoxMaxWidth =  50;    //Define Max Width of the area
  94. $TurretBoxMaxHeight = 25;    //Define Max Height of the area
  95.  
  96. $TurretBoxMinLength = 10;      //Define Min Length from another turret
  97. $TurretBoxMinWidth =  10;      //Define Min Width from another turret
  98. $TurretBoxMinHeight = 10;    //Define Min Height from another turret
  99.  
  100. //---------------------------------------------------------------------------------
  101. //    Object Types    
  102. //---------------------------------------------------------------------------------
  103. $SimTerrainObjectType    = 1 << 1;
  104. $SimInteriorObjectType   = 1 << 2;
  105. $SimPlayerObjectType     = 1 << 7;
  106.  
  107. $MineObjectType            = 1 << 26;    
  108. $MoveableObjectType        = 1 << 22;
  109. $VehicleObjectType          = 1 << 29;  
  110. $StaticObjectType             = 1 << 23;       
  111. $ItemObjectType             = 1 << 21;      
  112.  
  113. //---------------------------------------------------------------------------------
  114. // CHEATS
  115. //---------------------------------------------------------------------------------
  116. $ServerCheats = 0;
  117. $TestCheats = 0;
  118.  
  119. //---------------------------------------------------------------------------------
  120. //Respawn automatically after X sec's -  If 0..no respawn
  121. //---------------------------------------------------------------------------------
  122. $AutoRespawn = 0;
  123.  
  124. //---------------------------------------------------------------------------------
  125. // Player death messages - %1 = killer's name, %2 = victim's name
  126. //       %3 = killer's gender pronoun (his/her), %4 = victim's gender pronoun
  127. //---------------------------------------------------------------------------------
  128. $deathMsg[$LandingDamageType, 0]      = "%2 falls to %3 death.";
  129. $deathMsg[$LandingDamageType, 1]      = "%2 forgot to tie %3 bungie cord.";
  130. $deathMsg[$LandingDamageType, 2]      = "%2 bites the dust in a forceful manner.";
  131. $deathMsg[$LandingDamageType, 3]      = "%2 fall down go boom.";
  132. $deathMsg[$ImpactDamageType, 0]      = "%1 makes quite an impact on %2.";
  133. $deathMsg[$ImpactDamageType, 1]      = "%2 becomes the victim of a fly-by from %1.";
  134. $deathMsg[$ImpactDamageType, 2]      = "%2 leaves a nasty dent in %1's fender.";
  135. $deathMsg[$ImpactDamageType, 3]      = "%1 says, 'Hey %2, you scratched my paint job!'";
  136. $deathMsg[$BulletDamageType, 0]      = "%1 ventilates %2 with %3 chaingun.";
  137. $deathMsg[$BulletDamageType, 1]      = "%1 gives %2 an overdose of lead.";
  138. $deathMsg[$BulletDamageType, 2]      = "%1 fills %2 full of holes.";
  139. $deathMsg[$BulletDamageType, 3]      = "%1 guns down %2.";
  140. $deathMsg[$EnergyDamageType, 0]      = "%2 dies of turret trauma.";
  141. $deathMsg[$EnergyDamageType, 1]      = "%2 is chewed to pieces by a turret.";
  142. $deathMsg[$EnergyDamageType, 2]      = "%2 walks into a stream of turret fire.";
  143. $deathMsg[$EnergyDamageType, 3]      = "%2 ends up on the wrong side of a turret.";
  144. $deathMsg[$PlasmaDamageType, 0]      = "%2 feels the warm glow of %1's plasma.";
  145. $deathMsg[$PlasmaDamageType, 1]      = "%1 gives %2 a white-hot plasma injection.";
  146. $deathMsg[$PlasmaDamageType, 2]      = "%1 asks %2, 'Got plasma?'";
  147. $deathMsg[$PlasmaDamageType, 3]      = "%1 gives %2 a plasma transfusion.";
  148. $deathMsg[$ExplosionDamageType, 0]   = "%2 catches a Frisbee of Death thrown by %1.";
  149. $deathMsg[$ExplosionDamageType, 1]   = "%1 blasts %2 with a well-placed disc.";
  150. $deathMsg[$ExplosionDamageType, 2]   = "%1's spinfusor caught %2 by surprise.";
  151. $deathMsg[$ExplosionDamageType, 3]   = "%2 falls victim to %1's Stormhammer.";
  152. $deathMsg[$ShrapnelDamageType, 0]    = "%1 blows %2 up real good.";
  153. $deathMsg[$ShrapnelDamageType, 1]    = "%2 gets a taste of %1's explosive temper.";
  154. $deathMsg[$ShrapnelDamageType, 2]    = "%1 gives %2 a fatal concussion.";
  155. $deathMsg[$ShrapnelDamageType, 3]    = "%2 never saw it coming from %1.";
  156. $deathMsg[$LaserDamageType, 0]       = "%1 adds %2 to %3 list of sniper victims.";
  157. $deathMsg[$LaserDamageType, 1]       = "%1 fells %2 with a sniper shot.";
  158. $deathMsg[$LaserDamageType, 2]       = "%2 becomes a victim of %1's laser rifle.";
  159. $deathMsg[$LaserDamageType, 3]       = "%2 stayed in %1's crosshairs for too long.";
  160. $deathMsg[$MortarDamageType, 0]      = "%1 mortars %2 into oblivion.";
  161. $deathMsg[$MortarDamageType, 1]      = "%2 didn't see that last mortar from %1.";
  162. $deathMsg[$MortarDamageType, 2]      = "%1 inflicts a mortal mortar wound on %2.";
  163. $deathMsg[$MortarDamageType, 3]      = "%1's mortar takes out %2.";
  164. $deathMsg[$BlasterDamageType, 0]     = "%2 gets a blast out of %1.";
  165. $deathMsg[$BlasterDamageType, 1]     = "%2 succumbs to %1's rain of blaster fire.";
  166. $deathMsg[$BlasterDamageType, 2]     = "%1's puny blaster shows %2 a new world of pain.";
  167. $deathMsg[$BlasterDamageType, 3]     = "%2 meets %1's master blaster.";
  168. $deathMsg[$ElectricityDamageType, 0] = "%2 gets zapped with %1's ELF gun.";
  169. $deathMsg[$ElectricityDamageType, 1] = "%1 gives %2 a nasty jolt.";
  170. $deathMsg[$ElectricityDamageType, 2] = "%2 gets a real shock out of meeting %1.";
  171. $deathMsg[$ElectricityDamageType, 3] = "%1 short-circuits %2's systems.";
  172. $deathMsg[$CrushDamageType, 0]         = "%2 didn't stay away from the moving parts.";
  173. $deathMsg[$CrushDamageType, 1]         = "%2 is crushed.";
  174. $deathMsg[$CrushDamageType, 2]         = "%2 gets smushed flat.";
  175. $deathMsg[$CrushDamageType, 3]         = "%2 gets caught in the machinery.";
  176. $deathMsg[$DebrisDamageType, 0]         = "%2 is a victim among the wreckage.";
  177. $deathMsg[$DebrisDamageType, 1]         = "%2 is killed by debris.";
  178. $deathMsg[$DebrisDamageType, 2]         = "%2 becomes a victim of collateral damage.";
  179. $deathMsg[$DebrisDamageType, 3]         = "%2 got too close to the exploding stuff.";
  180. $deathMsg[$MissileDamageType, 0]        = "%2 takes a missile up the keister.";
  181. $deathMsg[$MissileDamageType, 1]        = "%2 gets shot down.";
  182. $deathMsg[$MissileDamageType, 2]        = "%2 gets real friendly with a rocket.";
  183. $deathMsg[$MissileDamageType, 3]        = "%2 feels the burn from a warhead.";
  184. $deathMsg[$MineDamageType, 0]           = "%1 blows %2 up real good.";
  185. $deathMsg[$MineDamageType, 1]           = "%2 gets a taste of %1's explosive temper.";
  186. $deathMsg[$MineDamageType, 2]           = "%1 gives %2 a fatal concussion.";
  187. $deathMsg[$MineDamageType, 3]           = "%2 never saw it coming from %1.";
  188.  
  189. // "you just killed yourself" messages
  190. //   %1 = player name,  %2 = player gender pronoun
  191.  
  192. $deathMsg[-2,0]                         = "%1 ends it all.";
  193. $deathMsg[-2,1]                         = "%1 takes %2 own life.";
  194. $deathMsg[-2,2]                         = "%1 kills %2 own dumb self.";
  195. $deathMsg[-2,3]                         = "%1 decides to see what the afterlife is like.";
  196.  
  197. $numDeathMsgs = 4;
  198. //---------------------------------------------------------------------------------
  199.  
  200. $spawnBuyList[0] = LightArmor;
  201. $spawnBuyList[1] = Blaster;
  202. $spawnBuyList[2] = Chaingun;
  203. $spawnBuyList[3] = Disclauncher;
  204. $spawnBuyList[4] = RepairKit;
  205. $spawnBuyList[5] = "";
  206.  
  207. function remotePlayMode(%clientId)
  208. {
  209.    if(!%clientId.guiLock)
  210.    {
  211.       remoteSCOM(%clientId, -1);
  212.       Client::setGuiMode(%clientId, $GuiModePlay);
  213.    }
  214. }
  215.  
  216. function remoteCommandMode(%clientId)
  217. {
  218.    // can't switch to command mode while a server menu is up
  219.    if(!%clientId.guiLock)
  220.    {
  221.       remoteSCOM(%clientId, -1);  // force the bandwidth to be full command
  222.         if(%clientId.observerMode != "pregame")
  223.            checkControlUnmount(%clientId);
  224.         Client::setGuiMode(%clientId, $GuiModeCommand);
  225.    }
  226. }
  227.  
  228. function remoteInventoryMode(%clientId)
  229. {
  230.    if(!%clientId.guiLock && !Observer::isObserver(%clientId))
  231.    {
  232.       remoteSCOM(%clientId, -1);
  233.       Client::setGuiMode(%clientId, $GuiModeInventory);
  234.    }
  235. }
  236.  
  237. function remoteObjectivesMode(%clientId)
  238. {
  239.    if(!%clientId.guiLock)
  240.    {
  241.       remoteSCOM(%clientId, -1);
  242.       Client::setGuiMode(%clientId, $GuiModeObjectives);
  243.    }
  244. }
  245.  
  246. function remoteScoresOn(%clientId)
  247. {
  248.    if(!%clientId.menuMode)
  249.       Game::menuRequest(%clientId);
  250. }
  251.  
  252. function remoteScoresOff(%clientId)
  253. {
  254.    Client::cancelMenu(%clientId);
  255. }
  256.  
  257. function remoteToggleCommandMode(%clientId)
  258. {
  259.     if (Client::getGuiMode(%clientId) != $GuiModeCommand)
  260.         remoteCommandMode(%clientId);
  261.     else
  262.         remotePlayMode(%clientId);
  263. }
  264.  
  265. function remoteToggleInventoryMode(%clientId)
  266. {
  267.     if (Client::getGuiMode(%clientId) != $GuiModeInventory)
  268.         remoteInventoryMode(%clientId);
  269.     else
  270.         remotePlayMode(%clientId);
  271. }
  272.  
  273. function remoteToggleObjectivesMode(%clientId)
  274. {
  275.     if (Client::getGuiMode(%clientId) != $GuiModeObjectives)
  276.         remoteObjectivesMode(%clientId);
  277.     else
  278.         remotePlayMode(%clientId);
  279. }
  280.  
  281. function Time::getMinutes(%simTime)
  282. {
  283.    return floor(%simTime / 60);
  284. }
  285.  
  286. function Time::getSeconds(%simTime)
  287. {
  288.    return %simTime % 60;
  289. }
  290.  
  291. function Game::pickRandomSpawn(%team)
  292. {
  293.    %group = nameToID("MissionGroup/Teams/team" @ %team @ "/DropPoints/Random");
  294.    %count = Group::objectCount(%group);
  295.    if(!%count)
  296.       return -1;
  297.       %spawnIdx = floor(getRandom() * (%count - 0.1));
  298.       %value = %count;
  299.     for(%i = %spawnIdx; %i < %value; %i++) {
  300.         %set = newObject("set",SimSet);
  301.         %obj = Group::getObject(%group, %i);
  302.         if(containerBoxFillSet(%set,$SimPlayerObjectType|$VehicleObjectType,GameBase::getPosition(%obj),2,2,4,0) == 0) {
  303.             deleteObject(%set);
  304.             return %obj;        
  305.         }
  306.         if(%i == %count - 1) {
  307.             %i = -1;
  308.             %value = %spawnIdx;
  309.         }
  310.         deleteObject(%set);
  311.     }
  312.    return false;
  313. }
  314.  
  315. function Game::pickStartSpawn(%team)
  316. {
  317.    %group = nameToID("MissionGroup\\Teams\\team" @ %team @ "\\DropPoints\\Start");
  318.    %count = Group::objectCount(%group);
  319.    if(!%count)
  320.       return -1;
  321.  
  322.    %spawnIdx = $lastTeamSpawn[%team] + 1;
  323.    if(%spawnIdx >= %count)
  324.       %spawnIdx = 0;
  325.    $lastTeamSpawn[%team] = %spawnIdx;
  326.    return Group::getObject(%group, %spawnIdx);
  327. }
  328.  
  329. function Game::pickTeamSpawn(%team, %respawn)
  330. {
  331.    if(%respawn)
  332.       return Game::pickRandomSpawn(%team);
  333.    else
  334.    {
  335.       %spawn = Game::pickStartSpawn(%team);
  336.       if(%spawn == -1)
  337.          return Game::pickRandomSpawn(%team);
  338.       return %spawn;
  339.    }
  340. }
  341.  
  342. function Game::pickObserverSpawn(%client)
  343. {
  344.    %group = nameToID("MissionGroup\\ObserverDropPoints");
  345.    %count = Group::objectCount(%group);
  346.    if(%group == -1 || !%count)
  347.       %group = nameToID("MissionGroup\\Teams\\team" @ Client::getTeam(%client) @ "\\DropPoints\\Random");
  348.    %count = Group::objectCount(%group);
  349.    if(%group == -1 || !%count)
  350.       %group = nameToID("MissionGroup\\Teams\\team0\\DropPoints\\Random");
  351.    %count = Group::objectCount(%group);
  352.    if(%group == -1 || !%count)
  353.       return -1;
  354.    %spawnIdx = %client.lastObserverSpawn + 1;
  355.    if(%spawnIdx >= %count)
  356.       %spawnIdx = 0;
  357.    %client.lastObserverSpawn = %spawnIdx;
  358.     return Group::getObject(%group, %spawnIdx);
  359. }
  360.  
  361. function UpdateClientTimes(%time)
  362. {
  363.    for(%cl = Client::getFirst(); %cl != -1; %cl = Client::getNext(%cl))
  364.       remoteEval(%cl, "setTime", -%time);
  365. }
  366.  
  367. function Game::notifyMatchStart(%time)
  368. {
  369.    messageAll(0, "Match starts in " @ %time @ " seconds.");
  370.    UpdateClientTimes(%time);
  371. }
  372.  
  373. function Game::startMatch()
  374. {
  375.    $matchStarted = true;
  376.    $missionStartTime = getSimTime();
  377.    messageAll(0, "Match started.");
  378.     Game::resetScores();    
  379.  
  380.    %numTeams = getNumTeams();
  381.    for(%i = 0; %i < %numTeams; %i = %i + 1) {
  382.         if($TeamEnergy[%i] != "Infinite")
  383.             schedule("replenishTeamEnergy(" @ %i @ ");", $secTeamEnergy);
  384.     }
  385.  
  386.    for(%cl = Client::getFirst(); %cl != -1; %cl = Client::getNext(%cl))
  387.    {
  388.         if(%cl.observerMode == "pregame")
  389.       {
  390.          %cl.observerMode = "";
  391.          Client::setControlObject(%cl, Client::getOwnedObject(%cl));
  392.       }
  393.        Game::refreshClientScore(%cl);
  394.     }
  395.    Game::checkTimeLimit();
  396. }
  397.  
  398. function Game::pickPlayerSpawn(%clientId, %respawn)
  399. {
  400.    return Game::pickTeamSpawn(Client::getTeam(%clientId), %respawn);
  401. }
  402.  
  403. function Game::playerSpawn(%clientId, %respawn)
  404. {
  405.    if(!$ghosting)
  406.       return false;
  407.  
  408.     Client::clearItemShopping(%clientId);
  409.    %spawnMarker = Game::pickPlayerSpawn(%clientId, %respawn);
  410.    if(!%respawn)
  411.    {
  412.       // initial drop
  413.       bottomprint(%clientId, "<jc><f0>Mission: <f1>" @ $missionName @ "   <f0>Mission Type: <f1>" @ $Game::missionType @ "\n<f0>Press <f1>'O'<f0> for specific objectives.", 5);
  414.    }
  415.     if(%spawnMarker) {   
  416.         %clientId.guiLock = "";
  417.          %clientId.dead = "";
  418.        if(%spawnMarker == -1)
  419.        {
  420.           %spawnPos = "0 0 300";
  421.           %spawnRot = "0 0 0";
  422.        }
  423.        else
  424.        {
  425.           %spawnPos = GameBase::getPosition(%spawnMarker);
  426.           %spawnRot = GameBase::getRotation(%spawnMarker);
  427.        }
  428.  
  429.         if(!String::ICompare(Client::getGender(%clientId), "Male"))
  430.           %armor = "larmor";
  431.        else
  432.           %armor = "lfemale";
  433.  
  434.        %pl = spawnPlayer(%armor, %spawnPos, %spawnRot);
  435.        echo("SPAWN: cl:" @ %clientId @ " pl:" @ %pl @ " marker:" @ %spawnMarker @ " armor:" @ %armor);
  436.        if(%pl != -1)
  437.        {
  438.           GameBase::setTeam(%pl, Client::getTeam(%clientId));
  439.           Client::setOwnedObject(%clientId, %pl);
  440.           Game::playerSpawned(%pl, %clientId, %armor, %respawn);
  441.           
  442.           if($matchStarted)
  443.              Client::setControlObject(%clientId, %pl);
  444.           else
  445.           {
  446.              %clientId.observerMode = "pregame";
  447.              Client::setControlObject(%clientId, Client::getObserverCamera(%clientId));
  448.              Observer::setOrbitObject(%clientId, %pl, 3, 3, 3);
  449.           }
  450.        }
  451.       return true;
  452.     }
  453.     else {
  454.         Client::sendMessage(%clientId,0,"Sorry No Respawn Positions Are Empty - Try again later ");
  455.       return false;
  456.     }
  457. }
  458.  
  459. function Game::playerSpawned(%pl, %clientId, %armor)
  460. {                          
  461.     %clientId.spawn= 1;
  462.     %max = getNumItems();
  463.    for(%i = 0; (%item = $spawnBuyList[%i]) != ""; %i++)
  464.    {
  465.         buyItem(%clientId,%item);    
  466.         if(%item.className == Weapon) 
  467.             %clientId.spawnWeapon = %item;
  468.     }
  469.     %clientId.spawn= "";
  470.     if(%clientId.spawnWeapon != "") {
  471.         Player::useItem(%pl,%clientId.spawnWeapon);    
  472.        %clientId.spawnWeapon="";
  473.     }
  474. } 
  475.  
  476. function Game::autoRespawn(%client)
  477. {
  478.     if(%client.dead == 1)
  479.         Game::playerSpawn(%client, "true");
  480. }
  481.  
  482. function onServerGhostAlwaysDone()
  483. {
  484. }
  485.  
  486. function Game::initialMissionDrop(%clientId)
  487. {
  488.     Client::setGuiMode(%clientId, $GuiModePlay);
  489.  
  490.    if($Server::TourneyMode)
  491.       GameBase::setTeam(%clientId, -1);
  492.    else
  493.    {
  494.       if(%clientId.observerMode == "observerFly" || %clientId.observerMode == "observerOrbit")
  495.       {
  496.           %clientId.observerMode = "observerOrbit";
  497.           %clientId.guiLock = "";
  498.          Observer::jump(%clientId);
  499.          return;
  500.       }
  501.       %numTeams = getNumTeams();
  502.       %curTeam = Client::getTeam(%clientId);
  503.  
  504.       if(%curTeam >= %numTeams || (%curTeam == -1 && (%numTeams < 2 || $Server::AutoAssignTeams)) )
  505.          Game::assignClientTeam(%clientId);
  506.    }    
  507.     Client::setControlObject(%clientId, Client::getObserverCamera(%clientId));
  508.    %camSpawn = Game::pickObserverSpawn(%clientId);
  509.    Observer::setFlyMode(%clientId, GameBase::getPosition(%camSpawn), 
  510.        GameBase::getRotation(%camSpawn), true, true);
  511.  
  512.    if(Client::getTeam(%clientId) == -1)
  513.    {
  514.       %clientId.observerMode = "pickingTeam";
  515.  
  516.       if($Server::TourneyMode && ($matchStarted || $matchStarting))
  517.       {
  518.          %clientId.observerMode = "observerFly";
  519.          return;
  520.       }
  521.       else if($Server::TourneyMode)
  522.       {
  523.          if($Server::TeamDamageScale)
  524.             %td = "ENABLED";
  525.          else
  526.             %td = "DISABLED";
  527.          bottomprint(%clientId, "<jc><f1>Server is running in Competition Mode\nPick a team.\nTeam damage is " @ %td, 0);
  528.       }
  529.       Client::buildMenu(%clientId, "Pick a team:", "InitialPickTeam");
  530.       Client::addMenuItem(%clientId, "0Observe", -2);
  531.       Client::addMenuItem(%clientId, "1Automatic", -1);
  532.       for(%i = 0; %i < getNumTeams(); %i = %i + 1)
  533.          Client::addMenuItem(%clientId, (%i+2) @ getTeamName(%i), %i);
  534.       %clientId.justConnected = "";
  535.    }
  536.    else 
  537.    {
  538.       Client::setSkin(%clientId, $Server::teamSkin[Client::getTeam(%clientId)]);
  539.       if(%clientId.justConnected)
  540.       {
  541.          centerprint(%clientId, $Server::JoinMOTD, 0);
  542.          %clientId.observerMode = "justJoined";
  543.          %clientId.justConnected = "";
  544.       }
  545.       else if(%clientId.observerMode == "justJoined")
  546.       {
  547.          centerprint(%clientId, "");
  548.          %clientId.observerMode = "";
  549.          Game::playerSpawn(%clientId, false);
  550.       }
  551.       else
  552.          Game::playerSpawn(%clientId, false);
  553.     }
  554.     if($TeamEnergy[Client::getTeam(%clientId)] != "Infinite")
  555.         $TeamEnergy[Client::getTeam(%clientId)] += $InitialPlayerEnergy;
  556.     %clientId.teamEnergy = 0;
  557. }
  558.  
  559. function processMenuInitialPickTeam(%clientId, %team)
  560. {
  561.    if($Server::TourneyMode && $matchStarted)
  562.       %team = -2;
  563.  
  564.    if(%team == -2)
  565.    {
  566.       Observer::enterObserverMode(%clientId);
  567.    }
  568.    if(%team == -1)
  569.    {
  570.       Game::assignClientTeam(%clientId);
  571.       %team = Client::getTeam(%clientId);
  572.    }
  573.    if(%team != -2)
  574.    {
  575.       GameBase::setTeam(%clientId, %team);
  576.         if($TeamEnergy[%team] != "Infinite")
  577.             $TeamEnergy[%team] += $InitialPlayerEnergy;
  578.       %clientId.teamEnergy = 0;
  579.       Client::setControlObject(%clientId, -1);
  580.       Game::playerSpawn(%clientId, false);
  581.    }
  582.    if($Server::TourneyMode && !$CountdownStarted)
  583.    {
  584.       if(%team != -2)
  585.       {
  586.          bottomprint(%clientId, "<f1><jc>Press FIRE when ready.", 0);
  587.          %clientId.notready = true;
  588.          %clientId.notreadyCount = "";
  589.       }
  590.       else
  591.       {
  592.          bottomprint(%clientId, "", 0);
  593.          %clientId.notready = "";
  594.          %clientId.notreadyCount = "";
  595.       }
  596.    }
  597. }
  598.  
  599. function Game::ForceTourneyMatchStart()
  600. {
  601.    %playerCount = 0;
  602.    for(%cl = Client::getFirst(); %cl != -1; %cl = Client::getNext(%cl))
  603.    {
  604.       if(%cl.observerMode == "pregame")
  605.          %playerCount++;
  606.    }
  607.    if(%playerCount == 0)
  608.       return;
  609.  
  610.    for(%cl = Client::getFirst(); %cl != -1; %cl = Client::getNext(%cl))
  611.    {
  612.       if(%cl.observerMode == "pickingTeam")   
  613.          processMenuInitialPickTeam(%cl, -2); // throw these guys into observer
  614.       for(%cl = Client::getFirst(); %cl != -1; %cl = Client::getNext(%cl))
  615.       {
  616.          %cl.notready = "";
  617.          %cl.notreadyCount = "";
  618.          bottomprint(%cl, "", 0);
  619.       }
  620.    }
  621.    Server::Countdown(30);
  622. }
  623.  
  624. function Game::CheckTourneyMatchStart()
  625. {
  626.    if($CountdownStarted || $matchStarted)
  627.       return;
  628.    
  629.    // loop through all the clients and see if any are still notready
  630.    %playerCount = 0;
  631.    %notReadyCount = 0;
  632.  
  633.    for(%cl = Client::getFirst(); %cl != -1; %cl = Client::getNext(%cl))
  634.    {
  635.       if(%cl.observerMode == "pickingTeam")
  636.       {
  637.          %notReady[%notReadyCount] = %cl;
  638.          %notReadyCount++;
  639.       }   
  640.       else if(%cl.observerMode == "pregame")
  641.       {
  642.          if(%cl.notready)
  643.          {
  644.             %notReady[%notReadyCount] = %cl;
  645.             %notReadyCount++;
  646.          }
  647.          else
  648.             %playerCount++;
  649.       }
  650.    }
  651.    if(%notReadyCount)
  652.    {
  653.       if(%notReadyCount == 1)
  654.          MessageAll(0, Client::getName(%notReady[0]) @ " is holding things up!");
  655.       else if(%notReadyCount < 4)
  656.       {
  657.          for(%i = 0; %i < %notReadyCount - 2; %i++)
  658.             %str = Client::getName(%notReady[%i]) @ ", " @ %str;
  659.  
  660.          %str = %str @ Client::getName(%notReady[%i]) @ " and " @ Client::getName(%notReady[%i+1]) 
  661.                      @ " are holding things up!";
  662.          MessageAll(0, %str);
  663.       }
  664.       return;
  665.    }
  666.  
  667.    if(%playerCount != 0)
  668.    {
  669.       for(%cl = Client::getFirst(); %cl != -1; %cl = Client::getNext(%cl))
  670.       {
  671.          %cl.notready = "";
  672.          %cl.notreadyCount = "";
  673.          bottomprint(%cl, "", 0);
  674.       }
  675.       Server::Countdown(30);
  676.    }
  677. }
  678.  
  679.  
  680. function Game::checkTimeLimit()
  681. {
  682.    // if no timeLimit set or timeLimit set to 0,
  683.    // just reschedule the check for a minute hence
  684.    $timeLimitReached = false;
  685.  
  686.    if(!$Server::timeLimit)
  687.    {
  688.       schedule("Game::checkTimeLimit();", 60);
  689.       return;
  690.    }
  691.    %curTimeLeft = ($Server::timeLimit * 60) + $missionStartTime - getSimTime();
  692.    if(%curTimeLeft <= 0 && $matchStarted)
  693.    {
  694.       echo("GAME: Timelimit reached.");
  695.       $timeLimitReached = true;
  696.       Server::nextMission();
  697.    }
  698.    else
  699.    {
  700.       schedule("Game::checkTimeLimit();", 20);
  701.       UpdateClientTimes(%curTimeLeft);
  702.    }
  703. }
  704.  
  705. function Game::resetScores(%client)
  706. {
  707.     if(%client == "") {
  708.        for(%cl = Client::getFirst(); %cl != -1; %cl = Client::getNext(%cl)) {
  709.           %cl.scoreKills = 0;
  710.           %cl.scoreDeaths = 0;
  711.             %cl.ratio = 0;
  712.           %cl.score = 0;
  713.         }
  714.     }
  715.     else {
  716.       %client.scoreKills = 0;
  717.          %client.scoreDeaths = 0;
  718.         %client.ratio = 0;
  719.          %client.score = 0;
  720.     }
  721. }
  722.  
  723. function remoteSetArmor(%player, %armorType)
  724. {
  725.     if ($ServerCheats) {
  726.         checkMax(Player::getClient(%player),%armorType);
  727.        Player::setArmor(%player, %armorType);
  728.     }
  729.     else if($TestCheats) {
  730.        Player::setArmor(%player, %armorType);
  731.     }
  732. }
  733.  
  734.  
  735. function Game::onPlayerConnected(%playerId)
  736. {
  737.    %playerId.scoreKills = 0;
  738.    %playerId.scoreDeaths = 0;
  739.     %playerId.score = 0;
  740.    %playerId.justConnected = true;
  741.    $menuMode[%playerId] = "None";
  742.    Game::refreshClientScore(%playerId);
  743. }
  744.  
  745. function Game::assignClientTeam(%playerId)
  746. {
  747.    if($teamplay)
  748.    {
  749.       %name = Client::getName(%playerId);
  750.       %numTeams = getNumTeams();
  751.       if($teamPreset[%name] != "")
  752.       {
  753.          if($teamPreset[%name] < %numTeams)
  754.          {
  755.             GameBase::setTeam(%playerId, $teamPreset[%name]);
  756.             echo(Client::getName(%playerId), " was preset to team ", $teamPreset[%name]);
  757.             return;
  758.          }            
  759.       }
  760.       %numPlayers = getNumClients();
  761.       for(%i = 0; %i < %numTeams; %i = %i + 1)
  762.          %numTeamPlayers[%i] = 0;
  763.  
  764.       for(%i = 0; %i < %numPlayers; %i = %i + 1)
  765.       {
  766.          %pl = getClientByIndex(%i);
  767.          if(%pl != %playerId)
  768.          {
  769.             %team = Client::getTeam(%pl);
  770.             %numTeamPlayers[%team] = %numTeamPlayers[%team] + 1;
  771.          }
  772.       }
  773.       %leastPlayers = %numTeamPlayers[0];
  774.       %leastTeam = 0;
  775.       for(%i = 1; %i < %numTeams; %i = %i + 1)
  776.       {
  777.          if( (%numTeamPlayers[%i] < %leastPlayers) || 
  778.             ( (%numTeamPlayers[%i] == %leastPlayers) && 
  779.             ($teamScore[%i] < $teamScore[%leastTeam] ) ))
  780.          {
  781.             %leastTeam = %i;
  782.             %leastPlayers = %numTeamPlayers;
  783.          }
  784.       }
  785.       GameBase::setTeam(%playerId, %leastTeam);
  786.       echo(Client::getName(%playerId), " was automatically assigned to team ", %leastTeam);
  787.    }
  788.    else
  789.    {
  790.       GameBase::setTeam(%playerId, 0);
  791.    }
  792. }
  793.  
  794. function Client::onKilled(%playerId, %killerId, %damageType)
  795. {
  796.    echo("GAME: kill " @ %killerId @ " " @ %playerId @ " " @ %damageType);
  797.    %playerId.guiLock = true;
  798.    Client::setGuiMode(%playerId, $GuiModePlay);
  799.     if(!String::ICompare(Client::getGender(%playerId), "Male"))
  800.    {
  801.       %playerGender = "his";
  802.    }
  803.     else
  804.     {
  805.         %playerGender = "her";
  806.     }
  807.     %ridx = floor(getRandom() * ($numDeathMsgs - 0.01));
  808.     %victimName = Client::getName(%playerId);
  809.  
  810.  
  811.    if(!%killerId)
  812.    {
  813.       messageAll(0, strcat(%victimName, " dies."), $DeathMessageMask);
  814.       %playerId.scoreDeaths++;
  815.   }
  816.    else if(%killerId == %playerId)
  817.    {
  818.       %oopsMsg = sprintf($deathMsg[-2, %ridx], %victimName, %playerGender);
  819.       messageAll(0, %oopsMsg, $DeathMessageMask);
  820.       %playerId.scoreDeaths++;
  821.       %playerId.score--;
  822.       Game::refreshClientScore(%playerId);
  823.    }
  824.    else
  825.    {
  826.         if(!String::ICompare(Client::getGender(%killerId), "Male"))
  827.         {
  828.             %killerGender = "his";
  829.         }
  830.         else
  831.         {
  832.             %killerGender = "her";
  833.         }
  834.       if($teamplay && (Client::getTeam(%killerId) == Client::getTeam(%playerId)))
  835.       {
  836.         if(%damageType != $MineDamageType) 
  837.             messageAll(0, strcat(Client::getName(%killerId), 
  838.                " mows down ", %killerGender, " teammate, ", %victimName), $DeathMessageMask);
  839.         else 
  840.              messageAll(0, strcat(Client::getName(%killerId), 
  841.                 " killed ", %killerGender, " teammate, ", %victimName ," with a mine."), $DeathMessageMask);
  842.          %killerId.scoreDeaths++;
  843.        %killerId.score--;
  844.        Game::refreshClientScore(%killerId);
  845.       }
  846.       else
  847.       {
  848.          %obitMsg = sprintf($deathMsg[%damageType, %ridx], Client::getName(%killerId),
  849.            %victimName, %killerGender, %playerGender);
  850.          messageAll(0, %obitMsg, $DeathMessageMask);
  851.          %killerId.scoreKills++;
  852.          %playerId.scoreDeaths++;  // test play mode
  853.          %killerId.score++;
  854.          Game::refreshClientScore(%killerId);
  855.          Game::refreshClientScore(%playerId);
  856.       }
  857.    }
  858.    Game::clientKilled(%playerId, %killerId);
  859. }
  860.  
  861. function Game::clientKilled(%playerId, %killerId)
  862. {
  863.    // do nothing
  864. }
  865.  
  866. function Client::leaveGame(%clientId)
  867. {
  868.    // do nothing
  869. }
  870.  
  871. function Player::enterMissionArea(%player)
  872. {
  873.    echo("Player " @ %player @ " entered the mission area.");
  874. }
  875.  
  876. function Player::leaveMissionArea(%player)
  877. {
  878.    echo("Player " @ %player @ " left the mission area.");
  879. }
  880.  
  881. function GameBase::getHeatFactor(%this)
  882. {
  883.    return 0.0;
  884. }
  885.  
  886.